#!/usr/bin/perl

use strict;

while(<>) {
	if(/^task/) {
		s/priority=\d+\D?\d*\s?/priority=1 /;
		print $_;
		next	

	}

	print $_;


}
